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> 

> tlodule: Error Check and Correction 
> 

> BANK 1 MODULE 
> 

> This moduie contains all the relevant fi les pertaining 

> to the ECC method and algorithm used on Midget. 
> 

> FUNCTION Ecc : BOOLEfiN 

> PROCEDURE ShiftfindXor< URR R1,R2.R3,R4,R5,R6 : BVTE { Ir1:6 } > 

> PROCEDURE TestMod8< J : WORD { ! !r8 } > 

> PROCEDURE TestO< J : WORD { ! !r8 } ) 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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> Function: Ecc 

y- . 

> This function Is responsible for 1> checking if the data in the 

> ReadBuffer is correctable and 2) correcting that data if it is 

> correctable. 

? 

> The method used was prepared by: 

> Hei I Glover 

> Data Systems Technology Corp. 

> 1801 flspen St. 

> Broomfiefd, Co. 80020 

> C 303 > 466-5228 
> 

> Inputs: { none > 
> 

> Outputs: 

> Ecc : BOOLEAN { zero flag is set if not correctable } 
> 

> K1 = BItLengthC DataField ) + BitLength< CrcFleld ? + 

> BItLengthC EccField > - 41 

> = < 1+532 >*8 + 2*8 + 6*8 - 41 

> = 4287 

> Correction Span = 12 bits 
> 

> R2Hask = $00 

> RSMask = $0F 
>' 

> Syndrome Bytes begin at Readflrray.RBuf lEcc 
> 

> Local Uariables: 

> 
> 
> 



Correctable : BOOLEfiN { !r7/bft 7 } 



R1 


BS'TE { 


r^ } 


R2 


BVIt { 


r2 > 


R3 


BVTE { 


r3 > 


R4 


BVTE { 


r4 > 


R5 


BVTE { 


!r5 > 


R6 


BVTE { 


!r5 > 



> Aligned : BOOLEftN < !r7/bft 5 > 

> Done : BOOLEAN { !r7/blt 5 } 

> J : WORD { !lr8 > 



fl I gor i thm : 



> BEGIN 

> R1 
R2 

> R3 



> R4 

> R5 

> R6 



= SyndromeByte[ 1 1 { roost significant byte > 

= SyndromeBy te [ 2 ] 

= SyndromeByteE 3 1 

= SyndromeBy te I 4 1 

= SyndromeBy te I 5 1 

= SyndromeBy te [ 6 1 

> IF < R1=R2=R3=R4=R5=R6=0 ) 

> THEN Ecc := False 

> ELSE 

> J := K1 

> fill gned ; = Fa I se 

> Done := False 

> Correctable := False 

> UHILE < R1 = > 00 

> ShiftRegsLeft t Byte { Left-Hand justify syndrome > 

> J := J + 8 

> I4hi le NOTC Done > OR NOK fli igned ) DO 

> ShiftflndXor 

> IF < R1 = > 

> THEN 

> IF ( R4=R5=R6=0 > AND ( R2*R2f1ask = ) AND 

> < R3*R3riask > 

> THEN 

> fl I i gned : = True 

> TestNodS 

> IF NOT< Aligned > THEN TestO 

IF NOT< Done > THEN J := J - 1 

> 

> WHILE NOT< Done > DO 

> ShiftflndXor 

> IF < R1 = > 

> THEN TestModB 

> ELSE TestO 

> IF NOT< Done > THEN J := J - 1 
> 

> IF Correctable 

> THEN 

> J := J DtU 8 

> Buffer! [ J 1 := Buffer U J 1 XOR R2 

> BufferlE J+1 ] := Bufferll J+1 1 XOR R3 

> BufferU J+2 1 := Buffer U J+2 J XOR R4 

> BlockNoye< Buffer2, RBuffer > 

> , ' ■ 

> Ecc := Correctable 

> END 
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K\ .Equ 4287 

R2Mask .Equ 



RSnask 

EccJCorrectabI 
Ecc_fll igned 
EccJDone 

Ecc: 



Ecc_LdJLp : 



Ecc_LH.-U4hiIe: 



.Equ 

e .Equ 

.Equ 

.Equ 



CIr 

Ld 

Ld 

Ld 
Ld 
Ld 
Ld 
Ld 

Ldei 
Or 

Djnz 
Jp 

Or 
Jr 

Ld 

Ld 

Ld 

Ld 

Ld 

Ctr 

Add 

fldc 

Jr 



$80 
$40 
$20 



!r7 ; clear boo leans 
lr8,«.HIBVTE. K1 
!r9,«.L0WBVTE. K1 

!rOj.*0 ;get ready to check for all zero symdroroe 

!rB^«5 ;load six bytes .RL-RS := Syndrome Bytes 

!rC,«.HIBVTE. RBuflEcc 

!rD,«.LOI4BVTE. RBUflEcc 

! rfl, »UrkJSys+$0 1 ; load syndrome bytes into registers 

§lrfl,e!!rC 
!rO,e!rft 
!rB,EccJLd_Lp 
Z,Ecc_End 

!r1,!rt ;UHILE < R1 = > DO 
Nz^Ecc-iHIgn 



r2 ; Shi ft left 1 bqte 

r3 

r4 

r5 

r5 



in, 

!r2, 

!r3. 

!r4, 

!r5, 

}r6 

!r9,»8 

!r8,«0 

EccJ_HJ_While 



;J := J + S 



Ecc_fl I qn : 



Call ShiftfindXor 

Jr nz,Ecc_fll_1 

Ld !rO, !r4 ; IF < R4=R5=R6=0 > 

Or IrOJrS 

Or !rO, Ir6 

Ld IrFJrS ;flND < R3*R3l1ask = > 

find !rF,«R3Hask 

Or !rO, IrF 

Jr f1z.Ecc_RI_1 



Or lr?^*Ecc_flll igned 

Call TestnodS 

Ecc_fi I _ 1 : Tm ! r? , *Ecc_fl I i gned 

Jr Nz,Ecc_fil_2 

Call TestO 

Ecc_fl \JZ: Tm ! r 7 , «Ecc J3one 

Jr NZj,EccJCrct 

Decw I !r8 : J := J - 1 



EccJShift: 



Tm ! r? , *Ecc_Done+Ecc_fi I i gned 

Jr Z^Ecc-fllgn 

Call ShiftfindXor 

Jr Nz,Ecc_Shft_£lse 



Call 
Jr 

EccJShft_£!ss: Call 

Ecc_JShft_2: Tm 
Jr 

Oecw 



TestdodS 
Ecc^hft_2 

TestO 

!r7,«EccJ3orie 
Nz^EccJCrct 

!!r8 ; J := J 
EccJShift 



- 1 



EccJCrcl: 



EccJDIvS; 



EccJCrct_Lp: 



Ecc_End : 



Tm 
Jr 

Ld 

Rrc 

Rrc 

Dinz 

Find 

Ld 
Ld 
Rdd 
fldc 

Ld 
Ld 

Lde 

Xor 

Ld 

Ldei 

Djnz 

Ld 
Ld 

Cali 

Tffl 

Jp 



I r7, *EccJCorrectab I e 
Zj,Ecc_£nd 



!rfl,»3 

!r8 

IrQ 

!rfl,Ecc_Div8 

!r8,»$1F 



J := J DIU 8 



;mcisk off any unwanted carries 



!rC,#.HIBVTE. RDummy 
!rD,«.LOWBVTE. RDuiRmy 
IrD, \rQ 
«rCJr8 

[rB,«Wrk_JSys+$02 ; start with R2 
lrfi,»3 ; correct 3 bytes 

!r1,§!!rC 
Irl^eirB 
@!rB, !r1 
§nrC,§!rB 
!rft,EccJCrctJ.p 

!r2,».HIBVTE. RBuf_To_Buf2 

!r3,«.L0UBVTE. RBuf_To_Euf2 

BankJCal I 

!r?,*EccJCorrec table ;set correctable flag 

Bank_Ret 
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Pr-ocedure: ShiftflndXor 

This procedure is used to shift the current syndrome bytes 
C assumed to be located In !r1:5 ? to the right 1 bit and then 
Xor the syndromes uiith the reciprocal polynomial if rieeded. 

Inputs: 



R1 


. BVIb 


{ 


r1 > 


R2 


BVTE 


{ 


r2 > 


R3 


BVIb 


{ 


r3 } 


R4 


BVTE 


{ 


r4 > 


R5 


BVIh 




r5 > 


R6 


• BS^TE 




r& > 



Outputs : 



R1 
R2 
R3 
R4 
R5 
R6 

fl I gor i thm : 



BVTE { !r1 } 

BVTE { !r2 } 

BVTE { !r3 > 

BVTE { !r4 > 

BVTE { Ir5 > 

BVTE ( !r6 > 



BEOIN 
Shift the syndromes right 1 bit with carry 
IF the Isb of R5 was q ^ {if carry > 



THEN 



R1 
R2 
R3 
R4 
R5 
R6 



= R1 XOR 140 
= R2 XOR 12 
= R3 XOR 10 
= R4 XOR 40 
= R5 XOR 24 
= R6 XOR 8 



END 



.LSTOFF 

.FIN 

.DO interna! 
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.FIN 



ShiftflndXor 



Ld 
Ld 

Rcf 



!rC,«6 ;shift 5 bytes 
!rD,«l»!rkJSys+$01 ; start with R1 



5_R_Xor_Lp: Rrc §!rD 

fnc !rD 

Djnz !rC,S_fl_Xor_Lp 

Jr Nc,S_flj!Cor_fnd 



Xor 


!r1. *140 


Xor 


!r2,«12 


Xor 


!r3,«10 


Xor 


!r4.«40 


Xor 


!r5,»24 


Xor 


!r6,#8 


S«fl Xor Fnd: Or 


!r1,!r1 ;IF < R1=0 ) 


Ret 




.LSTOFF 




.DO 


External 
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:>>>>>>>>>>>>>>>>>> >>>>3 


->>>>>>>>>> 



; > Procedure : TestModS 

;> 

;> This procedure is used to test if < J NOD 8=0). 
: > 



Inputs: 



J : WORD < Mr8 } 

Outputs: { none ) 

Scoped Gtobcil Uar tables Changed: 
Done : !r?/bjt 5 
Correctable : Ir7/bit ? 

Rigor ithm: 

BEGIN 
IF ( J MOD 8 = > 
THEN 

Done := True 
Correctable := True 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 
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TestModS: 



TstfldS-Done: 



Ld 

find 

Jr 

Or 

Ret 

.LSTOFF 



!rO, !r9 

!r0^«07 ;get remainder from division 

Nz,Tstrid8_Done 

! rl, *Ecc_Done+EccjCorrectab I e 



. DO Externa I 
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Procedure: TestO 

This procedure is used to test If < J = >. 

Inputs: 

J : WORD { !!r8 } 

Outputs: { none ) 

Scoped Global Uoriabies Changed: 
Done : !r7/bit 5 
Correctable : Ir7/bit 7 

fi I gor i thro : 

BEGIN 
IF < J = > 
THEN 

Done := True 
Correctable := True 
END 



>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 
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TestO: 



Ld !rOJr8 

Or !rO, !rQ ;IF < J = ).. 

Jr Nz,TstO_Done 

Or \r7, *Ecc JDone 

find !r7,«$FF-EccJCorrec table 



TstO_Done: Ret 

.LSTOFF 



